﻿Imports System.Data
Imports System.Data.SqlClient
Public Class frmModificarUsuarios
    Public Emp As String
    Private Sub frmModificarUsuarios_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarUsuario' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarUsuarioTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarUsuario)

    End Sub

    Private Sub btnCerrar_Click(sender As Object, e As EventArgs) Handles btnCerrar.Click
        Me.Close()
    End Sub

    Private Sub llenardatos()
        If varConexion.State = ConnectionState.Open Then
            varConexion.Close()
        End If
        Try
            varConexion.Open()
            Dim cmd As New SqlCommand("SP_MostrarUsuario", varConexion)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@IdUsuario", SqlDbType.Int).Value = Me.cboBuscarUsuarios.EditValue

            Dim reader As SqlDataReader
            reader = cmd.ExecuteReader
            If reader.Read = True Then

                Me.txtUsuario.Text = reader.Item("NombreUsuario")
                Me.txtContraseña.Text = reader.Item("Contraseña")
                Emp = reader.Item("IdEmpleado")
            End If
            varConexion.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub


    Private Sub cboBuscarUsuarios_EditValueChanged(sender As Object, e As EventArgs) Handles cboBuscarUsuarios.EditValueChanged
        llenardatos()
    End Sub

    Private Sub Actualizar()
        Try
            Me.SP_ListarUsuarioTableAdapter.SP_ActualizarUsuario(cboBuscarUsuarios.EditValue, Emp, txtUsuario.Text, txtContraseña.Text)
            MessageBox.Show("Se ha Actualizado Correctamente el Usuario", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub btnActualizar_Click(sender As Object, e As EventArgs) Handles btnActualizar.Click
        Actualizar()
        Me.Close()
    End Sub

    Private Sub BorrarUsuarios()
        Try
            Me.SP_ListarUsuarioTableAdapter.SP_BorrarUsuario(cboBuscarUsuarios.EditValue)
            MessageBox.Show("El usuario " + Trim(Me.txtUsuario.Text) + " ha sido eliminado", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Information)
            Me.Close()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub btnEliminar_Click(sender As Object, e As EventArgs) Handles btnEliminar.Click
        BorrarUsuarios()
    End Sub
End Class